#!/sea/local/bin/perl -w

use strict;
use Switch;
use lib qw(.);
use PointCode;

PointCode->ReadPC();
PointCode->AddNewPC("whq", "7-111-1", "ITU");
PointCode->AddNewPC("whq-1", "7-111-2", "ITU");
PointCode->showAll();